(sendmail-pre-abbrev-expand-hook):
authorRichard M. Stallman <rms@gnu.org>
Fri, 11 Jun 1993 22:22:15 +0000 (22:22 +0000)
committerRichard M. Stallman <rms@gnu.org>
Fri, 11 Jun 1993 22:22:15 +0000 (22:22 +0000)
If last-command-char is not a character, don't check char-syntax.

lisp/mail/mailabbrev.el

index dcdf3708d60c2db017897c2a2c2bf39c03a9907a..00ecb7f0cdd2d45399c24532c3e46bc293f8a311 100644 (file)
@@ -460,8 +460,8 @@ characters which may be a part of the name of a mail-alias.")
             ;; the mail-mode-header-syntax-table.
 
             (set-syntax-table mail-mode-header-syntax-table)
-            (or (not (integerp last-command-char))
-                (eq (char-syntax last-command-char) ?_)
+            (or (and (integerp last-command-char)
+                     (eq (char-syntax last-command-char) ?_))
                 (let ((pre-abbrev-expand-hook nil)) ; That's us; don't loop.
                   ;; Use this table so that abbrevs can have hyphens in them.
                   (set-syntax-table mail-abbrev-syntax-table)